home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / dev / amos / AMCAFExa.lha / AMCAF_Examples / Time&Date.AMOS / Time&Date.amosSourceCode
Encoding:
AMOS Source Code  |  1996-01-17  |  2.0 KB  |  46 lines
  1. ' ************************************* Commands used: 
  2. ' *                                   * =Current Date      =Current Time 
  3. ' *           Amcaf Examples          * =Cd Date$          =Ct Time$ 
  4. ' *          Time & Date V1.1         * =Cd Year           =Ct Hour
  5. ' *      Written by Chris Hodges      * =Cd Month          =Ct Minute
  6. ' *                                   * =Cd Day            =Ct Second
  7. ' ************************************* =Cd Weekday        =Ct Tick
  8. '                          
  9. ' Open a hires screen. 
  10. Screen Open 0,640,256,2,Hires
  11. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  12. Palette 0,$FFF
  13. ' Print some silly title 
  14. Centre "AMCAF time and date functions."
  15. ' Get the current date 
  16. DATE= Extension_8_07CE 
  17. ' Give out all date informations. These have only to be printed once, because
  18. ' I think you don't run it all day long :))) 
  19. Locate 0,2
  20. Print "Current date as hex   : ";Hex$(DATE,8)
  21. Print "Current date as string: "; Extension_8_0F0A(DATE)
  22. Print "Current year          :"; Extension_8_07F2(DATE)
  23. Print "Current month         : "; Extension_8_0EB8( Extension_8_0800(DATE),2)
  24. Print "Current day           : "; Extension_8_0EB8( Extension_8_0810(DATE),2)
  25. Print "Current weekday       : "; Extension_8_0EB8( Extension_8_081E(DATE),2)
  26. ' Preprint the information that don't change.
  27. Locate 40,2 : Print "Current time as hex   : "
  28. Locate 40,3 : Print "Current time as string: "
  29. Locate 40,4 : Print "Current hour          : "
  30. Locate 40,5 : Print "Current minute        : "
  31. Locate 40,6 : Print "Current second        : "
  32. Locate 40,7 : Print "Current tick          : "
  33. Repeat 
  34.   Multi Wait 
  35.   ' Get the current time 
  36.   TIME= Extension_8_07E0 
  37.   ' Give out all time informations 
  38.   Locate 64,2 : Print Hex$(TIME,8)
  39.   Locate 64,3 : Print Extension_8_0F1A(TIME)
  40.   Locate 64,4 : Print Extension_8_0EB8( Extension_8_0830(TIME),2)
  41.   Locate 64,5 : Print Extension_8_0EB8( Extension_8_083E(TIME),2)
  42.   Locate 64,6 : Print Extension_8_0EB8( Extension_8_084E(TIME),2)
  43.   Locate 64,7 : Print Extension_8_0EB8( Extension_8_085E(TIME),2)
  44. Until Inkey$=Chr$(27) or Mouse Key<>0
  45. Screen Close 0
  46. End